home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n09.arc / 123.PAN next >
Text File  |  1990-04-09  |  2KB  |  66 lines
  1.         ************************************************************
  2.         ***                                                      ***
  3.         *** PAN script for adding an opening menu to Lotus 1-2-3 ***
  4.         ***          (Tested only with version 2.01)             ***
  5.         ***                                                      ***
  6.         ************************************************************
  7.  
  8. IfLoad "c:\123\123.exe"
  9. Else
  10.     Output "^M^J^GPAN is unable to load Lotus 1-2-3.  Please edit the file 123.PAN and^M^J"
  11.     Output "correct the 'IfLoad' command to include the appropriate pathname for PAN to^M^J"
  12.     Output "locate the file 123.EXE on your PC."
  13.     Quit
  14. EndIf
  15. Go ""
  16.  
  17. * Wait for Lotus 1-2-3 to initialize
  18.  
  19. WaitScreen 0 75 "READY"
  20.  
  21. * Draw the menu in reverse video
  22.  
  23. Video 70
  24. Screen 07 30 / ╔═══════════════════════╗ /
  25. Screen 08 30 / ║ Select a spreadsheet: ║ /
  26. Screen 09 30 / ║      1. Expenses      ║ /
  27. Screen 10 30 / ║      2. Income        ║ /
  28. Screen 11 30 / ║      3. Budget        ║ /
  29. Screen 12 30 / ╚═══════════════════════╝ /
  30.  
  31. * Get and interpret a keypress
  32.  
  33. Video 07
  34. Label try_again
  35. Flush
  36. GetKey
  37. IfKey "1"
  38.     * Select: Worksheet Erase Yes to clear the menu
  39.     Key "/wey"
  40.     * Select: File Retrieve to load a spreadsheet
  41.     Key "/frexpenses[Enter]"
  42.     Jump out
  43. EndIf
  44. IfKey "2"
  45.     Key "/wey"
  46.     Key "/frincome[Enter]"
  47.     Jump out
  48. EndIf
  49. IfKey "3"
  50.     Key "/wey"
  51.     Key "/frbudget[Enter]"
  52.     Jump out
  53. EndIf
  54. IfKey "[Esc]"
  55.     Key "/wey"
  56.     Jump out
  57. EndIf
  58. Output "^G"
  59. Jump try_again
  60.  
  61. * Out
  62.  
  63. Label out
  64. WaitChild
  65. Quit
  66.